home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / vader.lzh / 6!$%2"!3
Text File  |  1991-07-02  |  2KB  |  37 lines
  1. dim a$(15)
  2. 0 'Processed by Byte Fyter & BYFYTE.CO
  3. 1 'For GEnie's Laptops RoundTable
  4. 2 'Use ENTER or TAB to move down.
  5. 3 'Use DEL/BKSP or ESC to move up.
  6. 4 'Fire at Vaders with SPACE BAR.
  7. 5 H$="<":FOR I=0 TO VAL(RIGHT$(TIME$,2)):J=RND:NEXT I
  8. 6 S=0:FOR Z=0 TO 2:P=38:TT=0:F=0:FOR I=1 TO 6:A$(I)=MID$("987654321",(3-Z),7):NEXT I:CLS:PRINT@P,H$;:PRINT@280,"Score:    "S;::FOR J=Z TO 49:IF J>33 THEN J=J-1
  9. 7 IF TT>48 THEN 29
  10. 8 FOR I=0 TO 6:PRINT@(I*40+J),SPACE$(Z+1);A$(I);:NEXT I:IF F=1 THEN RP=RP+1:IF FP=RP THEN GOSUB 33
  11. 9 V=0:FOR L=1 TO 6:IF LEN(A$(L))=0 THEN V=V+1
  12. 10 NEXT L:IF V=6 THEN PRINT@P," ":GOTO 29
  13. 11 I=INT(RND*7):B=LEN(A$(I)):IF B<=0 THEN 11
  14. 12 C$=RIGHT$(A$(I),1):A$(I)=LEFT$(A$(I),B-1):FOR N=I*40+J+B+Z+1 TO I*40+38:PRINT@N,C$;:PRINT@(N-1)," ";:IF N=FP THEN 23
  15. 13 K$=INKEY$:IF K$="" THEN 18
  16. 14 M=ASC(K$):IF M=32 THEN 20
  17. 15 PRINT@P," ":IF M=27 OR M=8 THEN P=P-40:IF P<38 THEN P=38
  18. 16 IF M=9 OR M=13 THEN P=P+40:IF P>278 THEN P=278
  19. 17 PRINT@P,H$
  20. 18 IF F<>1 THEN ST=15:GOTO 24
  21. 19 IF (FP%40)<(J+Z) THEN F=0:GOTO 25
  22. 20 IF F=0 THEN F=1:FP=P-1:PRINT@FP,"o";:K=INT(FP/40):RP=40*K+J+Z+LEN(A$(K))
  23. 21 FP=FP-1:PRINT@FP,"o ";:IF FP=RP THEN GOSUB 33:GOTO 25
  24. 22 IF FP<>N THEN ST=1:GOTO 24
  25. 23 SOUND 500,2:S=S+VAL(C$)*10:F=0:PRINT@N," ";:FP=999:GOTO 28
  26. 24 FOR T=0 TO ST:NEXT T
  27. 25 NEXT N:IF (N-1)<>P THEN 27
  28. 26 PRINT@P,H$;:SOUND 2000,2:S=S+VAL(C$)*10:GOTO 28
  29. 27 S=S-VAL(C$)*5:SOUND 1000,1:PRINT@(N-1)," ";
  30. 28 PRINT@290,S;:TT=TT+1:NEXT J
  31. 29 NEXT Z
  32. 30 PRINT@133,H$" Game Over "H$:FOR L=1 TO 1500:Q$=INKEY$:NEXT L:PRINT@215,"Play again [y/n] ? ";
  33. 31 Q$=INKEY$:IF Q$="" THEN 31
  34. 32 IF Q$="Y" OR Q$="y" THEN 6 ELSE cls : system
  35. 33 F=0:PRINT@RP," ";:FP=999:BR=LEN(A$(K)):IF BR=0 THEN RETURN
  36. 34 R$=RIGHT$(A$(K),1):S=S+VAL(R$)*10:A$(K)=LEFT$(A$(K),BR-1):SOUND 500,2:PRINT@290,S;:TT=TT+1:RETURN
  37. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə